object DM: TDM
  OnCreate = DataModuleCreate
  Height = 480
  Width = 640
  object ADOConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Data Source=YourServerName;Initial Catalog=Mem' +
      'oDB;Integrated Security=SSPI;'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 48
    Top = 32
  end
  object qryMemo: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM Memo'
      'ORDER BY CreateTime DESC')
    Left = 48
    Top = 96
    object qryMemoID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object qryMemoTitle: TWideStringField
      FieldName = 'Title'
      Size = 100
    end
    object qryMemoContent: TMemoField
      FieldName = 'Content'
      BlobType = ftMemo
    end
    object qryMemoCreateTime: TDateTimeField
      FieldName = 'CreateTime'
    end
    object qryMemoModifyTime: TDateTimeField
      FieldName = 'ModifyTime'
    end
    object qryMemoCategoryID: TIntegerField
      FieldName = 'CategoryID'
    end
    object qryMemoPriority: TIntegerField
      FieldName = 'Priority'
    end
    object qryMemoStatus: TIntegerField
      FieldName = 'Status'
    end
  end
  object qryReminder: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    Left = 48
    Top = 160
    object qryReminderID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object qryReminderMemoID: TIntegerField
      FieldName = 'MemoID'
    end
    object qryReminderRemindTime: TDateTimeField
      FieldName = 'RemindTime'
    end
    object qryReminderRemindType: TIntegerField
      FieldName = 'RemindType'
    end
    object qryReminderRepeatInterval: TIntegerField
      FieldName = 'RepeatInterval'
    end
    object qryReminderStatus: TIntegerField
      FieldName = 'Status'
    end
  end
  object qryCategory: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM Category'
      'ORDER BY Name')
    Left = 48
    Top = 224
    object qryCategoryID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object qryCategoryName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object qryCategoryDescription: TWideStringField
      FieldName = 'Description'
      Size = 200
    end
  end
  object qryTemp: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    Left = 48
    Top = 288
  end
  object dsMemo: TDataSource
    DataSet = qryMemo
    Left = 136
    Top = 96
  end
  object dsCategory: TDataSource
    DataSet = qryCategory
    Left = 136
    Top = 224
  end
end 